home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / status_scroll.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-23  |  477b  |  29 lines
  1. /* BBS status scroll.. you must have the scroll.rexx in this dir */
  2.  
  3. c=0
  4.  
  5. options results
  6. parse arg orcport .
  7. orcport=trim(orcport)
  8. tr=transmit;gs=getscratch
  9.  
  10.  
  11. TOP:
  12. who=''
  13. address CNETREXX0
  14. do scan=1 to 20
  15.  if ~show('P',orcport) then EXIT
  16.  getportid scan;pid=result
  17.  if pid>0 then do
  18.   c=c+1
  19.   loadscratch pid
  20.   savescratch (-pid)
  21.   gs 1;who = result' 'who
  22.  end
  23. end
  24.  
  25. address command  'rx cnet:ircrexx/scroll.rexx 'orcport' There are 'c' users online:' who
  26.  
  27. delay(500)
  28. call TOP
  29.